

(defclass counter ()
  ((count :initform 10
	  :initarg :count
	  :accessor getCount
	  :type number
	  :documentation "The counter class holds a number")))

(defmethod getCount ( (c counter) )
  (slot-value c `count))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setf myCounter (make-instance `counter :count 44))

(print (getCount myCounter))

(setf (getCount myCounter) 55)

(print (getCount myCounter))